home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
pmsx222.zip
/
samples
/
testsntx.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1995-07-16
|
18KB
|
448 lines
/* example REXX script to test PMsndX syntax...no errors should be returned */
x=pmsndx(test_mode,no)
x=pmsndx(IGNORE_SYNTAX_ERRORS,YES)
x=pmsndx(test_mode,yes)
x=display(tools,yes)
x=display(toolpage,format)
x=display(toolpage,channels)
x=display(toolpage,average)
x=display(toolpage,dupe)
x=display(toolpage,sample)
x=display(toolpage,rate)
x=display(toolpage,speed)
x=display(toolpage,filter)
x=display(toolpage,bandpass)
x=display(toolpage,lowpass)
x=display(toolpage,effect)
x=display(toolpage,echo)
x=display(toolpage,invert)
x=display(toolpage,reverse)
x=display(toolpage,vibro)
x=display(toolpage,volume)
x=display(toolpage,fade)
x=display(toolpage,limit)
x=display(toolpage,balance)
x=display(toolpage,info)
x=display(tools,no)
x=pmsndx(test_mode,no)
x=pmsndx(test_mode,yes)
x=display(properties,yes)
x=display(proppage,audio)
x=display(proppage,memory)
x=display(proppage,misc)
x=display(proppage,rexx)
x=display(proppage,startup)
x=display(properties,no)
x=pmsndx(test_mode,no)
x=pmsndx(TEST_MODE,YES)
x=display(properties,yes)
x=display(open,yes)
x=pmsndx(TEST_MODE,NO)
x=pmsndx(test_mode,yes)
data=message(ask,ok,text,"testtext 1",title,"ok noicon application moveable",icon,noicon,mode,application,moveable,yes)
say "message result:" data
data=message(ask,okcancel,text,"test text 2",title,"okcancel iconhand systemmodal moveable",icon,iconhand,mode,system,moveable,yes)
say "message result:" data
data=message(ask,cancel,text,"test text 3",title,"cancel question notmodal notmoveable",icon,question,moveable,yes)
say "message result:" data
data=message(ask,enter,text,"test text 4",title,"enter exclamation notmodal notmoveable",icon,exclamation,moveable,yes)
say "message result:" data
data=message(ask,entercancel,text,"test text 5",title,"entercancel asterisk notmodal notmoveable",icon,asterisk,moveable,yes)
say "message result:" data
data=message(ask,retrycancel,text,"test text 6",title,"retrycancel information notmodal notmoveable",icon,information,moveable,yes)
say "message result:" data
data=message(ask,abortretryignore,text,"test text 7",title,"abortretryignore query notmodal notmoveable",icon,query,moveable,yes)
say "message result:" data
data=message(ask,yesno,text,"test text 8",title,"yesno warning notmodal notmoveable",icon,warning,moveable,yes)
say "message result:" data
data=message(ask,yesnocancel,text,"test text 9",title,"yesnocancel error notmodal notmoveable",icon,error,moveable,yes)
say "message result:" data
x=pmsndx(test_mode,no)
data=file(openpath,'d:\WSH\samples')
say "fully qualified path: " data
data=file(savepath,'d:\WSH')
say "fully qualified path: " data
filehandle=file(open,'brettapp.wav')
say "file handle: " filehandle
x=pmsndx(test_mode,yes)
x=edit(handle,filehandle,MANIPULATE,1)
x=edit(handle,filehandle,AREA,ENTIRE_SAMPLE)
x=edit(handle,filehandle,COPY)
x=pmsndx(test_mode,no)
x=pmsndx(test_mode,yes)
x=audio(volume,80)
x=audio(handle,filehandle,play,SYNC)
x=pmsndx(test_mode,no)
x=pmsndx(output,NO)
data=query(handle,filehandle,"file","openpath");
say "FILE OPENPATH:" data
data=query(handle,filehandle,"file","savepath");
say "FILE SAVEPATH:" data
data=query(handle,filehandle,"file","filename");
say "FILE FILENAME:" data
data=query(handle,filehandle,"info","format");
say "INFO FORMAT:" data
data=query(handle,filehandle,"info","datastyle");
say "INFO DATASTYLE:" data
data=query(handle,filehandle,"info","channels");
say "INFO CHANNELS:" data
data=query(handle,filehandle,"info","rate");
say "INFO RATE:" data
data=query(handle,filehandle,"info","datasize");
say "INFO DATASIZE:" data
data=query(handle,filehandle,"info","samples");
say "INFO SAMPLES:" data
data=query(handle,filehandle,"info","time");
say "INFO TIME:" data
data=query(handle,filehandle,"info","memory");
say "INFO MEMORY:" data
data=query(handle,filehandle,"info","comment");
say "INFO COMMENT:" data
data=query(handle,filehandle,"info","byteorder");
say "AUDIO BYTEORDER:" data
data=query(handle,filehandle,"audio","repeat");
say "AUDIO REPEAT:" data
data=query(handle,filehandle,"audio","time");
say "AUDIO TIME:" data
data=query(handle,filehandle,"audio","count");
say "AUDIO COUNT:" data
data=query(handle,filehandle,"audio","memory");
say "AUDIO MEMORY:" data
data=query(handle,filehandle,"audio","input");
say "AUDIO INPUT:" data
data=query(handle,filehandle,"audio","quality");
say "AUDIO QUALITY:" data
data=query(handle,filehandle,"audio","channels");
say "AUDIO CHANNELS:" data
data=query(handle,filehandle,"audio","rate");
say "AUDIO RATE:" data
data=query(handle,filehandle,"audio","overwrite");
say "AUDIO OVERWRITE:" data
data=query(handle,filehandle,"audio","monitor");
say "AUDIO MONITOR:" data
data=query(handle,filehandle,"properties","save_positions");
say "PROPERTIES SAVE_POSITIONS:" data
data=query(handle,filehandle,"properties","save_openpath");
say "PROPERTIES SAVE_OPENPATH:" data
data=query(handle,filehandle,"properties","save_savepath");
say "PROPERTIES SAVE_SAVEPATH:" data
data=query(handle,filehandle,"properties","footnotes");
say "PROPERTIES FOOTNOTES:" dtaa
data=query(handle,filehandle,"properties","memory");
say "PROPERTIES MEMORY:" data
data=query(handle,filehandle,"properties","enable_mmpm");
say "PROPERTIES ENABLE_MMPM:" data
data=query(handle,filehandle,"properties","share_audio");
say "PROPERTIES SHARE_AUDIO:" data
data=query(handle,filehandle,"properties","play_ON_COMMANDLINE_LOAD");
say "PROPERTIES PLAY_ON_COMMANDLINE_LOAD:" data
data=query(handle,filehandle,"properties","exit_after_commandline_play");
say "PROPERTIES EXIT_AFTER_COMMANDLINE_PLAY:" data
data=query(handle,filehandle,"properties","play_16on8");
say "PROPERTIES PLAY_16ON8:" data
data=query(handle,filehandle,"properties","device");
say "PROPERTIES DEVICE:" data
data=query(handle,filehandle,"properties","undo");
say "PROPERTIES UNDO:" data
data=query(handle,filehandle,"properties","ignore_header_style");
say "PROPERTIES IGNORE_HEADER_STYLE:" data
data=query(handle,filehandle,"properties","require_au_header");
say "PROPERTIES REQUIRE_AU_HEADER:" data
data=query(handle,filehandle,"properties","force_ulaw");
say "PROPERTIES FORCE_ULAW:" data
data=query(handle,filehandle,"properties","rexx_display_history");
say "PROPERTIES REXX_DISPLAY_HISTORY:" data
data=query(handle,filehandle,"properties","ini_path");
say "PROPERTIES INI_PATH:" data
data=query(handle,filehandle,"pmsndx","registered");
say "PMSNDX REGISTERED:" data
data=query(handle,filehandle,pmsndx,ignore_syntax_errors)
say "PMSNDX IGNORE_SYNTAX_ERRORS:" data
data=query(handle,filehandle,pmsndx,error_occurred)
say "PMSNDX ERROR_OCCURRED:" data
data=query(handle,filehandle,pmsndx,test_mode)
say "PMSNDX TEST_MODE:" data
data=query(handle,filehandle,pmsndx,output)
say "PMSNDX OUTPUT:" data
data=query(handle,filehandle,pmsndx,close)
say "PMSNDX CLOSE:" data
x=pmsndx(output,yes)
x=pmsndx(test_mode,yes)
x=audio(volume,70)
x=audio(record,sync,monitor,yes,input,mic,quality,8,channels,1,rate,11025,overwrite,yes,count,10000)
x=pmsndx(test_mode,no)
say "testing pull capability...type anything and then press ENTER"
pull data
say "pull result: " data
x=pmsndx(test_mode,yes)
filehandle1=file(open,'d:\wsh\samples\applause.au')
say "file handle: " filehandle1
filehandle2=file(open,'d:\wsh\samples\applause.au',format,au)
say "file handle: " filehandle2
x=audio(handle,filehandle,play,SYNC)
filehandle3=file(open,'\wsh\samples\brettapp.au')
say "file handle: " filehandle3
x=audio(handle,filehandle,play,ASYNC)
x=pmsndx(test_mode,no)
x=pmsndx(test_mode,yes)
x=properties(save_positions,no)
x=properties(save_openpath,no)
x=properties(save_savepath,no)
x=properties(memory,auto)
x=properties(enable_mmpm,yes)
x=properties(play_ON_COMMANDLINE_LOAD,no)
x=properties(exit_after_commandline_play,yes)
x=properties(play_16on8,no)
x=properties(device,waveaudio01)
x=properties(undo,yes)
x=properties(ignore_header_style,yes)
x=properties(require_au_header,no)
x=properties(rexx_display_history,256)
x=properties(ini_path,'d:\wsh\pmsndx')
x=pmsndx(TE